home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
games
/
wasps003.zip
/
INCLUSIF.ZIP
/
ARCHIVE1.SAL
next >
Wrap
Text File
|
1997-01-28
|
48KB
|
1,031 lines
1007
SCRAP3.TMP
EDITWASP BAS 15927 11-22-95 7:55a
WASPS9 BAS 15796 2-20-95 2:08p
WASPS8 BAS 15796 2-20-95 2:08p
WASPS7 BAS 15796 2-20-95 2:08p
WASPS6 BAS 15620 2-20-95 8:06a
WASPS5 BAS 15620 2-20-95 8:06a
WASPS4 BAS 15620 2-20-95 8:06a
WASPS3 BAS 15647 9-23-91 1:47p
WASPS2 BAS 15647 9-23-91 1:47p
WASPS1 BAS 15647 9-23-91 1:47p
WASCS9 BAS 15931 2-20-95 2:08p
WASUS9 BAS 15926 2-20-95 2:08p
WASCS8 BAS 15931 2-20-95 2:08p
WASCS7 BAS 15931 2-20-95 2:08p
WASCS6 BAS 15755 2-20-95 8:06a
WASCS5 BAS 15755 2-20-95 8:06a
WASCS4 BAS 15755 2-20-95 8:06a
WASCS3 BAS 15782 9-23-91 1:47p
WASCS2 BAS 15782 9-23-91 1:47p
WASCS1 BAS 15782 9-23-91 1:47p
WASUS8 BAS 15926 2-20-95 2:08p
WASUS7 BAS 15926 2-20-95 2:08p
WASUS6 BAS 15750 2-20-95 8:06a
WASUS5 BAS 15750 2-20-95 8:06a
WASUS4 BAS 15750 2-20-95 8:06a
WASUS3 BAS 15777 9-23-91 1:47p
WASUS2 BAS 15777 9-23-91 1:47p
WASUS1 BAS 15777 9-23-91 1:47p
WOSUS2 BAS 15771 9-23-91 1:47p
WOSUS1 BAS 15771 9-23-91 1:47p
WOSUS3 BAS 15771 9-23-91 1:47p
WOSCS1 BAS 15776 9-23-91 1:47p
WOSCS2 BAS 15776 9-23-91 1:47p
WOSCS3 BAS 15776 9-23-91 1:47p
WOSPS1 BAS 15641 9-23-91 1:47p
WOSPS2 BAS 15641 9-23-91 1:47p
WOSPS3 BAS 15641 9-23-91 1:47p
ENDSCRAP3.TMP
SCRAP30.TMP
961
B36.TMP
951
B35.TMP
938
B34.TMP
927
B33.TMP
914
B32.TMP
900
B31.TMP
889
B30.TMP
879
B29.TMP
869
B28.TMP
852
B27.TMP
842
B26.TMP
831
B25.TMP
820
B24.TMP
806
B23.TMP
792
B22.TMP
778
B21.TMP
763
B20.TMP
752
B19.TMP
738
B18.TMP
724
B17.TMP
711
B16.TMP
697
B15.TMP
683
B14.TMP
669
B13.TMP
655
B12.TMP
641
B11.TMP
628
B10.TMP
612
B9.TMP
600
B8.TMP
591
B7.TMP
578
B6.TMP
565
B5.TMP
552
B4.TMP
537
B3.TMP
524
B2.TMP
511
B1.TMP
488
B0.TMP
ENDB0.TMP
EDITWASP.BAS
1 REM J6MaS
10 GOTO 2330
20 PRINT "ALONE OR ACTS AS A WORKER FO";
21 PRINT "R HER SISTER. IF SHE";
22 PRINT "STAYS TO HELP SHE GIVES U";
23 PRINT "P SOME OR ALL OF HE";
24 PRINT "R REPRODUCTION. ";
25 INPUT "PRESS ENTER"; S$
30 CLS: SHELL"GLOBAL": CLS: REM CLS: SHELL"GLOBAL": CLS=CLEAR SCREEN
31 PRINT "WHICH STRATEGY SHE CH";
32 PRINT "OOSES DEPENDS ON WHETHER S";
33 PRINT "HE INHERITED ALTRUISM (NIECE";
34 PRINT "AND NEPHEW RAISING) O";
35 PRINT "R SELFISHNESS (OWN OFF";
40 PRINT "SPRING REARING) GENES. THE ";
41 PRINT "WORD, GENE ";
50 PRINT "FREQUENCY, MENTIONED IN TH";
51 PRINT "E DISPLAYS AND ABBREVIATED G.";
52 PRINT "F., REFERS TO";
53 PRINT "THE FRACTION OF GEN";
54 PRINT "ES IN THE POPULATION ";
60 INPUT "PRESS ENTER";S$
61 CLS: SHELL"GLOBAL": CLS:PRINT "WHICH ARE ALTRUISM GENE";
62 PRINT "S. WHEN THE G.F. INCREASES A";
63 PRINT "S TIME PASSES AN APPARENT";
64 PRINT "EXCEPTION TO DARWINIA";
65 PRINT "N THEORY SEEMS TO";
70 PRINT " OCCUR. IT TOOK PROGRAMS SUCH";
71 PRINT "AS THIS ONE TO SHO";
72 PRINT "W SCIENTISTS HOW ALTRUISM CA";
73 PRINT "N BE FAVORED BY NATURA";
74 PRINT "L SELECTION."
75 INPUT "PRESS ENTER"; S$
80 GOTO 2370
90 DIM V(8) , X(8)
100 DIM S1(20) , S2(20) , S3(20)
110 DIM W3(3)
120 DIM F3(4)
130 DIM W(4)
140 DIM F1(4) , F2(4)
150 DIM T(8 , 8)
160 DIM P1(2) , P2(2)
170 DIM B8(8) , X8(8)
180 DIM S(8)
190 DIM M(8)
200 DIM M2(8)
210 DIM H(8)
220 PRINT "GIVE ME SPEED OPTION. TYPE <";
221 INPUT "ON> OR <OFF>"; O$
222 IF O$ = "ON" OR O$ = "OFF" THEN 230
223 PRINT "ON OROFF PLEASE": GOTO 221
230 ACUM$ = "ON": REM INPUT"ACUM$"ACUM$
240 R$ = "KIN SELECTION"
241 REM PRINT"KIND OF MODEL: CLASSICAL";
242 REM INPUT" , KIN SELECTION";R$
250 E6 = 1E-15
260 PRINT "CHOOSE DOMINANCE LEVEL O";
261 PRINT "N A SCALE BETWEN 0 AND 1";
262 PRINT ", 0 BEING ALTRUISM DOMINANT";
263 PRINT "AND 1 BEING SELFISHNES";
264 INPUT "S DOMINANT."; S: PRINT
265 IF S >= 0 AND S <= 1 THEN 270
266 PRINT "BETWEEN ZERO AND ONE PLEASE!"
267 GOTO 260
270 PRINT "GIVE THE INITIAL FREQUENC";
271 PRINT "Y OF THE ALTRUISM GENE (";
272 PRINT "A NUMBER BETWEEN 0 AND ";
273 INPUT "1 PLEASE)."; P: PRINT
274 IF P >= 0 AND P <= 1 THEN 280
275 PRINT "BETWEEN ZERO AND ONE PLEASE!"
276 GOTO 270
280 PRINT "SEGREGATION RATIO (I.E";
281 PRINT ". HOW MANY S EGGS LAID PER";
282 PRINT "A EGG BY AN A-S OR S-A FEMALE,";
283 PRINT "USUALLY 1 IN THE REA";
284 INPUT "L WORLD)"; B3: PRINT
285 PRINT "THE POPULATION YOU JUST REQ";
286 PRINT "UESTED IS BEING MIXED FR";
287 PRINT "OM 2 STRAINS. A NATURAL";
288 PRINT "TYPE POPULATION WILL BE ACHI";
289 PRINT "EVED IN 2 GENERATIONS. UN";
290 PRINT "TIL THEN A NIECE OR";
291 PRINT "NEPHEW WILL BE WORTH ONE OFFS";
292 PRINT "PRING."
293 INPUT "<PRESS ENTER>"; S$
294 B2 = B3 / (1 + B3)
300 IF P = .5 THEN P = P + 10 * E6
310 N(8) = P: N(7) = 1 - P
320 REM SIMULATION OF WASP POPULATION
330 FOR I = 1 TO 8: S(I) = I
331 M2(I) = I: H(I) = 1: NEXT I
340 O = P
350 A$ = "NO"
360 Z4 = 0: Z5 = 1: Z6 = 0: W7 = 0: Q7 = 1: Q8 = 0
370 C4 = 0
380 C5 = 0
390 FOR I = 1 TO 6
400 X(I) = 0:N(I) = 0
410 NEXT I
420 I7 = 3: X(7) = 0: X(8) = 0
430 I3 = 0
431 REM I3 COUNTS GENERATIONS
440 I3 = I3 + 1
450 IF A$ = "NO" THEN 470
460 IF C5 = 1 THEN 510
470 Z3 = N3
480 GOSUB 1370
490 C5 = 0
500 N3 = Z3
510 REM
520 W = Z4: Q1 = Z5: Q2 = Z6
530 IF A$ = "NO" THEN 550
540 Z = 10 ^ 10: W = R * Z: Q1 = 0: Q2 = Z
550 IF I3 > 3 THEN 570
560 W = 0: Q1 = 1: Q2 = 0
570 REM IF W = 0 THEN 580 ELSE 571
571 IF ABS(W7 - W) < E6 AND ABS(Q7 - Q1) < E6 AND ABS(Q6 - Q2) < E6 THEN 590
580 C4 = 0
590 C4 = C4 + 1
600 IF I3 <> 4 THEN 620
610 REM GOSUB 1630
620 IF C4 <> 2 THEN 660
630 IF I3 < 4 THEN 660
640 GOSUB 1630
650 GOSUB 1840
660 IF C4 < 2 THEN 730
670 IF I3 < 4 THEN 730
680 C5 = 1
690 U$ = "1": IF N3 < 6 AND P > (1E-6) THEN U$ = "0"
691 IF U$ = "1" THEN 696
692 PRINT "USE OF SHORTCUTS MAY HAV";
693 PRINT "E AFFECTED THE ACCURACY ";
695 PRINT "OF FORTHCOMMING RESULTS"
696 IF O$ = "OFF" OR U$ = "0" THEN 720
700 GOSUB 1990
710 GOTO 930
720 REM
730 W7 = W: Q7 = Q1: Q6 = Q2
740 FOR I = 1 TO 4: F3(I) = F2(I): NEXT I
750 FOR I = 1 TO 4: F1(I) = 0: F2(I) = 0: NEXT I
760 REM S IS SD, A1 IS ALPHA, G IS
761 REM GAMMA, AND M IS BETA IN THE
762 REM JTB PAPER
770 FOR I = 0 TO 1: FOR J = 0 TO 1: FOR K = 0 TO 1
771 FOR A1 = 0 TO 1: FOR G = 0 TO 1: FOR M = 0 TO 1
780 IF R$ <> "CLASSICAL" THEN 840
790 IF I3 < 3 THEN 840
800 W = 0: Q2 = 0
810 Q1 = S1(I3) * (1 - I) * (1 - J)
820 Q1 = Q1 + S2(I3) * (I - J) ^ 2
830 Q1 = Q1 + S3(I3) * I * J
840 REM
850 I8 = 4 * I + 2 * J + K + 8 * (1 - I) * (1 - J) * (1 - K)
851 I9 = 4 * A1 + 2 * M + G + 8 * (1 - A1) * (1 - M) * (1 - G)
860 J8 = 2 * I + J + 4 * (1 - I) * (1 - J)
870 X1 = W * (S * (I - J) ^ 2 + I * J)
871 X1 = X1 + Q1
872 X1 = X1 + Q2 * (1 - (S * (J - K) ^ 2 + J * K))
873 X1 = X1 * N(I8)
880 F1(J8) = F1(J8) + X1
890 F2(J8) = F2(J8) + N(I8)
900 B3 = 1 - (B2 * (I - J) ^ 2 + I * J)
910 CC = X1 * ABS((A1 - B3) * (M - P) * (G - B3))
911 X(I9) = X(I9) + CC
920 NEXT M: NEXT G: NEXT A1
921 NEXT K: NEXT J: NEXT I
930 REM
940 IF O$ = "ON" THEN 1180
950 FOR I = 1 TO 4
960 IF F2(I) = 0 THEN 1180
970 W(I) = F1(I) / F2(I)
980 NEXT I
990 W3(1) = W(4): W3(3) = W(3)
1000 W3(2) = (W(1) * F2(1) + W(2) * F2(2))
1001 W3(2) = W3(2) / (F2(1) + F2(2))
1010 IF I3 > 20 THEN 1030
1020 S1(I3) = W3(1): S2(I3) = W3(2)
1021 S3(I3) = W3(3)
1030 IF 2 * W3(2) = W3(1) + W3(3) THEN 1110
1040 E7 = (W3(1) - W3(3))
1041 E7 = E7 / (2 * W3(2) - (W3(1) + W3(3)))
1050 E7 = 1 - (1 -E7) / 2
1060 S5 = 1 - W3(1) / W3(2): T5 = 1 - W3(3) / W3(2)
1070 X = S5 / (S5 + T5)
1080 X = 1 - X
1090 A = O2: B = O: C = P
1100 GOSUB 2290
1110 PRINT " FITNESS"
1120 PRINT "--------------------------";
1121 PRINT "-------"
1130 PRINT "OF AA=";: PRINT W3(1)
1131 PRINT "OF AS=";: PRINT W3(2)
1132 PRINT "OF SS=";: PRINT W3(3)
1133 PRINT "EQUILIBRIUM=";: PRINT E7
1140 REM
1150 PRINT X
1160 PRINT U
1170 PRINT "--------------------------";
1171 PRINT "-------"
1180 REM
1190 O2 = O
1200 E = (2 * P + O) / 3: O = P
1210 D = 0: FOR I = 1 TO 8: D = D + X(I): NEXT I
1211 IF D <> 0 THEN 1220
1212 PRINT "YOU'VE JUST KILLED OFF THE";
1213 PRINT " POPULATION. BEGIN AGAIN!"
1214 GOTO 220
1220 P = 0
1221 FOR I = 4 TO 7: P = P + X(I) / D: NEXT I: P = 1 - P
1230 REM THE PREVIOUS STATEMENT FOUND
1231 REM THE GENE FREQUENCY FOR NEXT
1232 REM GENERATION MALES."
1233 REM THE ARRAY X IS N' IN THE JTB.
1240 P2(2) = P: P2(1) = 1 - P
1250 CLS: SHELL"GLOBAL": CLS: PRINT " G.F. (";
1251 PRINT "MALES)=";: PRINT O2
1252 PRINT " G.F. (FEMALES)=";: PRINT O
1253 PRINT "G.F. POPULATION=";: PRINT E
1254 PRINT "OFFSPRING WORTH 1 NIECE"
1255 PRINT " OR NEPHEW=";
1260 IF R = 123 THEN 1261 ELSE 1262
1261 PRINT "0/0": GOTO 1263
1262 PRINT R
1263 PRINT "GENERATION=";: PRINT I3
1270 INPUT "PRESS ENTER"; L$
1280 PRINT "WORKER CAN GIVE UP";: PRINT W
1290 PRINT "QUEEN HAS ANYWAY";: PRINT Q1
1291 PRINT "QUEEN CAN GAIN";: PRINT Q2
1300 REM
1303 PRINT "POP.SIZE NOW/POP.SIZE LAST";
1304 PRINT " GEN.=";: PRINT D
1305 D = 0
1310 FOR I = 1 TO 8: D = D + X(I)
1311 NEXT I
1312 FOR I = 1 TO 8: N(I) = X(I) / D: X(I) = 0: NEXT I
1320 REM PRINT"THE VECTOR, N"
1330 REM FORI=1TO8:PRINTI;:PRINT"-";
1331 REM PRINTN(I);
1332 REM PRINT" ";:NEXTI:PRINT
1340 IF I3 < I7 THEN 440
1350 GOTO 2210
1360 REM TO FIND RHO, THE NUMBER OF
1361 REM OFFSPRING WORTH ONE NIECE OR
1362 REM NEPHEW
1370 R = 123: N1 = 0: N2 = 0: N3 = 0: N4 = 0
1371 D1 = 0: D2 = 0: D3 = 0: D4 = 0
1380 FOR I = 0 TO 1: FOR J = 0 TO 1: FOR K = 0 TO 1
1390 I8 = 4 * I + 2 * J + K + 8 * (1 - I) * (1 - J) * (1 - K)
1400 W9 = S * (I - J) ^ 2 + I * J
1401 Q9 = 1 - (S * (J - K) ^ 2 + J * K)
1410 F = B2 * (I - J) ^ 2 + I * J: T = 1 - F
1420 N1 = N1 + Q9 * N(I8) * T
1421 N2 = N2 + N(I8) * F
1422 N3 = N3 + Q9 * N(I8) * F: N4 = N4 + N(I8) * T
1430 D1 = D1 + W9 * N(I8) * F: D3 = D3 + W9 * N(I8) * T
1440 NEXT K: NEXT J: NEXT I: D2 = N4: D4 = N2
1450 IF D1 * D2 = D3 * D4 THEN RETURN
1460 R = (N1 * N2 - N3 * N4) / (D1 * D2 - D3 * D4)
1461 RETURN
1470 REM SYMBOL TABLES
1480 REM PRINT "SYMBOL TABLES"
1490 FOR I = 1 TO 8: PRINT S(I);: NEXT I: PRINT
1500 REM CONDENSED STATE VECTOR
1510 REM PRINT"CONDENSED STATE VECTOR"
1520 REM FORI=1TO8:PRINTN(I);:NEXTI
1521 REM PRINT
1530 REM UNCONDENSED STATE VECTOR
1540 REM PRINT"UNCONDENSED STATE VECTOR"
1550 REM FORI=1TO8:PRINTH(I);:NEXTI
1551 REM PRINT
1560 REM HISTOGRAM
1570 REM PRINT"HISTOGRAM"
1580 FOR I = 1 TO 8: PRINT H(I);: NEXT I: PRINT
1590 REM SUBSCRIPT DIRECTORY
1600 REM PRINT"SUBSCRIPT DIRECTORY"
1610 REM FORI=1TO8:PRINTM2(I);
1611 REM NEXTI:PRINT
1620 RETURN
1630 REM HISTOGRAM
1640 PRINT "NOW SNIFFING OUT CHANCES F";
1641 PRINT "OR SHORT CUTS"
1650 N3 = 1
1660 S(1) = 1
1670 FOR I = 1 TO 8: H(I) = 1: NEXT I
1680 I = 0
1690 I = I + 1
1700 IF I = 9 THEN 1480
1710 J = 0
1720 J = J + 1
1730 IF I = J THEN 1770
1740 IF ABS(N(I) - N(J)) < E6 THEN 1810
1750 IF J < I - 1 THEN 1720
1760 N3 = N3 + 1
1770 S(I) = N3
1780 M(N3) = N(I)
1790 M2(N3) = I
1800 GOTO 1690
1810 S(I) = S(J)
1820 H(S(I)) = H(S(I)) + 1
1830 GOTO 1690
1840 REM SETTING UP LOOK-UP TABLES
1850 PRINT "SETTING UP LOOK-UP TABLES"
1860 FOR I = 1 TO 8: PRINT S(I);: NEXT I
1870 FOR I = 1 TO N3: FOR J = 1 TO N3
1871 T(I , J) = 0: NEXT J: NEXT I
1880 FOR I = 0 TO 1: FOR J = 0 TO 1: FOR K = 0 TO 1
1881 FOR A1 = 0 TO 1: FOR M = 0 TO 1: FOR G1 = 0 TO 1
1890 I8 = 4 * I + 2 * J + K + 8 * (1 - I) * (1 - J) * (1 - K)
1900 J8 = 4 * A1 + 2 * M + G1
1901 J8 = J8 + 8 * (1 - A1) * (1 - M) * (1 - G1)
1910 Y = W * (S * (I - J) ^ 2 + I * J)
1911 Y = Y + Q1 + Q2 * (1 - (S * (J - K) ^ 2 + J * K))
1920 Y1 = (1 - A1) - (B2 * (I - J) ^ 2 + I * J)
1921 Y2 = (1 - G1) - (B2 * (I - J) ^ 2 + I * J)
1922 Y = Y * ABS(Y1 * Y2)
1930 Y = Y / H(S(J8))
1940 T(S(I8) , S(J8)) = T(S(I8) , S(J8)) + Y
1950 NEXT G1: NEXT M: NEXT A1
1951 NEXT K: NEXT J: NEXT I
1960 PRINT "THE MATRIX T"
1970 FOR I = 1 TO 8: FOR J = 1 TO 8
1971 PRINT T(I , J);: NEXT J: NEXT I: PRINT
1980 RETURN
1990 REM THE SIMULATION USING REDUCED
1991 REM MATRIX
2000 PRINT "NOW SIMULATING WITH SHOR";
2001 PRINT "T CUTS"
2010 P2(2) = P: P2(1) = 1 - P
2020 FOR I = 1 TO 8
2030 M(S(I)) = N(I)
2040 NEXT I
2050 FOR I = 1 TO 8: B8(I) = 0: NEXT I
2060 FOR I = 1 TO N3: X8(I) = 0: NEXT I
2070 FOR A1 = 0 TO 1: FOR M = 0 TO 1: FOR G1 = 0 TO 1
2080 I8 = 4 * A1 + 2 * M + G1
2081 I8 = I8 + 8 * (1 - A1) * (1 - M) * (1 - G1)
2090 M7 = M + 2 * (1 - M)
2100 Y = P2(M7)
2110 Y = Y / H(S(I8))
2120 IF ACUM$ = "ON" THEN 2121 ELSE 2122
2121 B8(S(I8)) = B8(S(I8)) + Y: GOTO 2130
2122 B8(S(I8)) = P2(M7)
2130 NEXT G1: NEXT M: NEXT A1
2140 FOR I = 1 TO N3: FOR J = 1 TO N3
2150 X8(J) = X8(J) + M(I) * T(I , J) * B8(J)
2160 NEXT J: NEXT I
2170 FOR I = 1 TO 8
2180 X(I) = X8(S(I))
2190 NEXT I
2200 RETURN
2210 PRINT "HOW MANY OFFSPRING DOES ";
2211 PRINT "A WORKER GIVE UP TO STAY A";
2212 INPUT "ND HELP THE QUEEN"; Z4
2220 PRINT "HOW MANYOFFSPRING DOES ";
2221 INPUT "A QUEEN HAVE BY HERSELF"; Z5
2230 PRINT "HOW MANY EXTRAOFFSPRING D";
2231 PRINT "OES THE QUEEN GAIN WHEN TH";
2232 PRINT "E WORKER STAYS AND HELPS";
2233 INPUT " HER"; Z6
2240 PRINT "DO YOU WANT ME TO REPLACE";
2241 PRINT " THESE 3 NUMBERS YOU JUST";
2242 PRINT " ENTERED SO AS TO PERFECTL";
2243 PRINT "Y HANDICAP THE RACE BETWEE";
2244 PRINT "N THE ALTRUISM GENE AND TH";
2245 INPUT "E SELFISHNESS GENE"; A$
2246 REM IF A$ = "Y" OR A$ = "N" THEN 2250
2247 IF A$ = "YES" OR A$ = "NO" THEN 2250
2248 PRINT "YES OR NO PLEASE!": GOTO 2240
2250 C5 = 0
2260 W = Z4: Q1 = Z5: Q2 = Z6
2270 PRINT "FOR HOW MANY GENERATIONS";
2271 PRINT " SHOULD THIS"
2272 PRINT "SCHEME LAST";
2273 PRINT " (USE 0 HERE TO CANCEL ";
2274 PRINT "YOUR ORDER OR 0 FOR THE L";
2275 PRINT "AST 3 VALUES TO RES";
2276 INPUT "TART)"; Z7
2280 I7 = I7 + Z7: GOTO 1340
2290 REM FIND ASYMPTOTE
2300 IF 2 * B - A - C = 0 THEN 2320
2310 U = (B ^ 2 - A * C) / (2 * B - A - C)
2320 RETURN
2330 CLS: SHELL"GLOBAL": CLS: REM CLS: SHELL"GLOBAL": CLS=CLEAR SCREEN
2331 PRINT "THIS PROGRAM SIMULATES";
2332 PRINT " A POPULATION OF POLISTES";
2333 PRINT " WASPS. IN EACH GENERATION";
2334 PRINT " THE ";
2340 PRINT
2341 PRINT " <ENTER> = READ ON. "; CHR$(34); "S"; CHR$(34); " = ";
2342 PRINT "GO ON WITH ";
2343 INPUT "SIMULATION>"; S$
2344 IF S$ = "S" THEN 90
2350 CLS: SHELL"GLOBAL": CLS: PRINT "FEMALES FORM PAIRS OF ";
2351 PRINT "TWO SISTERS. A BRIE";
2352 PRINT "F SKIRMISH OCCURS IN EACH";
2353 PRINT "PAIR. THE WINNER TRI";
2354 PRINT "ES TO DOMINATE THE LOSE";
2355 PRINT "R. THE LOSER EITHER FLIES";
2356 PRINT "OFF TO FOUND A NEST ";
2360 GOTO 20
2370 CLS: SHELL"GLOBAL": CLS:PRINT "WHEN RUNNING THE PROGR";
2371 PRINT "AM YOU MAY CHOOSE TO TURN ";
2372 PRINT "THE SPEED OPTION ON. THIS";
2373 PRINT "WILL SIGNAL THE COMPUTER ";
2374 PRINT "TO SEEK AND LOCATE ALL";
2375 PRINT " PAIRS, TRIOS, ETC. OF";
2376 PRINT "QUANTITIES WHICH HAVE";
2377 PRINT " ALWAYS EQUALLED AND IT IS";
2378 PRINT " ASSUMED ALWAYS WILL";
2379 PRINT "EQUAL EACH OTHER."
2380 INPUT "PRESS ENTER"; S$
2390 CLS: SHELL"GLOBAL": CLS: PRINT "THUS THE NUMBER OF WOR";
2391 PRINT "KERS WITH ONE ALTRUISM";
2392 PRINT " GENE AND ONE SELFISHNESS";
2393 PRINT "GENE WHOSE QUEENS HAPPE";
2394 PRINT "N TO HAVE TWO ALTRUISM GENE";
2395 PRINT "S HAS ALWAYS EQUALLED AND";
2396 PRINT " WILL ";
2400 PRINT "ALWAYS EQUAL THE NUMBER OF";
2401 PRINT " WORKERS WITH TWO ALTRUISM ";
2402 PRINT "GENES WHOSE QUEENS HAPPEN ";
2403 PRINT "TO HAVE ONE ALTRUISM GEN";
2404 PRINT "E AND ONE SELFISHNESS ";
2405 PRINT "GENE. ";
2410 INPUT " PRESS ENTER"; S$
2420 CLS: SHELL"GLOBAL": CLS: PRINT "THE COMPUTER SAVES TIM";
2421 PRINT "E IN 2 WAYS. (1) IF ALL T";
2422 PRINT "HE NUMBERS IN A GROUP EQUAL";
2423 PRINT "EACH OTHER, THEN WHY COMP";
2424 PRINT "UTE THEM ALL? YOU NEED O";
2425 PRINT "NLY CALCULATE ONE OF THEM";
2426 PRINT "THEN COPY THE RESULT ";
2427 PRINT "INTO THE SPACES RESERVED FO";
2428 PRINT "R THE OTHERS."
2429 INPUT "PRESS ENTER"; S$
2430 CLS: SHELL"GLOBAL": CLS: PRINT "(2) IF A BUNCH OF";
2431 PRINT " DIFFERENT NUMBERS NEEDTO ";
2432 PRINT "BE ALL MULTIPLIED BY THE";
2433 PRINT"SAME THING AND ADDED";
2434 PRINT" AFTERWARDS, YOU CAN SAVE";
2435 PRINT" A LOT OF TIME BY ADD THEM";
2436 PRINT"FIRST AND DOING "
2440 INPUT"PRESS ENTER";S$
2450 CLS: SHELL"GLOBAL": CLS:PRINT"THE MULTIPLICATION TO ";
2451 PRINT"THE SUM. FOR EXAMPLE, (2";
2452 PRINT" TIMES 3) PLUS (8 TIMES 3)";
2453 PRINT" PLUS (7 TIMES 3) IS THE";
2454 PRINT" SAME AS";
2455 PRINT" (2 PLUS 8 PL";
2456 PRINT"US 7) TIMES 3."
2460 INPUT"PRESS ENTER";S$
2470 CLS: SHELL"GLOBAL": CLS:PRINT"THE COMPUTER WILL SNIF";
2471 PRINT"F OUT CHANCES TO SAVE TIM";
2472 PRINT"E USING THESE TWO TRICKS BY";
2473 PRINT"LOCATING GROUPS OF";
2474 PRINT" NUMBERS WHICH ALL EQUA";
2475 PRINT"L EACH OTHER. IT WILL FIND";
2476 PRINT"THEM WHERE YOU, I, AN";
2477 PRINT"D THE MOST EXPERIENCED ";
2480 PRINT"GENETICIST WOULD NOT DREAM";
2481 PRINT"RANDOM FLUCTUATIONS";
2482 PRINT" WILL NOT BOTHER US BECAUS";
2483 PRINT"E WE ARE ASSUMING AN";
2484 PRINT"INFINITE POPULATION.";
2490 FOR I = 1 TO 4000: NEXT I
2491 INPUT " PRESS ENTER"; S$:CLS: SHELL"GLOBAL": CLS
2500 GOTO 90
2510 REM
2520 REM REFERENCES
2530 REM ORLOVE M.J. 1981 WASPS AND THE
2531 REM IMPOSIBLE ELEVATOR
2540 REM CREATIVE COMPUTING OCTOBER
2541 REM 1981 REPRINTED IN
2542 REM "COMPUTERS IN SCIENCE AND
2543 REM SOCIAL STUDIES"
2544 REM (VERY INTRODUCTORY)
2550 REM ORLOVE M.J. (1982)
2551 REM J. THEOR. BIOL. V96 PP107-128
2552 REM (EXPLANATION OF SPEED OPTION
2553 REM IN APPENDIX)
2560 REM ORLOVE M.J. (1975)
2561 REM J. THEOR. BIOL. V49 PP289-310
2562 REM (EXPLANATION OF MODEL)
2570 REM
ENDEDITWASP.BAS
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
ENDB1.TMP
WASPS9.BAS
1 REM J6OaS
30 CLS: REM CLS=CLEAR SCREEN
61 CLS:PRINT "WHICH ARE ALTRUISM GENE";
571 AYE = W7 / (W7 + Q7 + Q6): BEE = Q7 / (W7 + Q7 + Q6): SEE = Q6 / (W7 + Q7 + Q6)
572 PEE = W / (W + Q1 + Q2): CUE = Q1 / (W + Q1 + Q2): ARE = Q2 / (W + Q1 + Q2)
573 IF (AYE*CUE = PEE*BEE) AND (AYE*ARE = PEE*SEE) THEN 590
1250 CLS: PRINT " G.F. (";
2330 CLS: REM CLS=CLEAR SCREEN
2350 CLS: PRINT "FEMALES FORM PAIRS OF ";
2370 CLS:PRINT "WHEN RUNNING THE PROGR";
2390 CLS: PRINT "THUS THE NUMBER OF WOR";
2420 CLS: PRINT "THE COMPUTER SAVES TIM";
2430 CLS: PRINT "(2) IF A BUNCH OF";
2450 CLS:PRINT"THE MULTIPLICATION TO ";
2470 CLS:PRINT"THE COMPUTER WILL SNIF";
2491 INPUT " PRESS ENTER"; S$:CLS
ENDWASPS9.BAS
990
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -488 489 0 0 0 0 0 0 0 0
1 1 1 1 -488 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 377 1 1 -377 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 115 -113 1 1 1 1 1 1 1 1 106 -104 1
1 1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1 1 76 -74 1 1 1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58
1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 22
ENDB2.TMP
WASPS8.BAS
ENDWASPS8.BAS
1023
1 1 1 1 1 1 1 1 1 1 1 1 1 1 -21 0 0 0 0 0 0 0 0 22 1 -23 24 -24 25 -25 0 26 1 1 1 1 -26 -488 1 1 1 1 1 1 483 -481 1 1 1 1
1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 377 1 1 -377 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 282 -280 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 115 -113 1 1 1 1 1 1 1 1 106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89
-87 1 1 1 1 1 1 1 1 1 1 1 1 76 -74 1 1 1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1
1 1 1 40 -38 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 33
ENDB3.TMP
WASPS7.BAS
ENDWASPS7.BAS
1037
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -32 0 0 0 0 0 0 0 0 0 33 1 -34 35 -35 36 -36 0 37 1 1 1 1
-37 -488 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 377 1 1 -377 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 115 -113 1 1 1 1 1 1 1 1 106 -104 1 1 1 1
1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1 1 76 -74 1 1 1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1
1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 44
ENDB4.TMP
WASPS6.BAS
1 REM J6NaS
571 IF (W*Q7 = W7*Q1) AND (W*Q6 = W7*Q2) THEN 590
ENDWASPS6.BAS
1048
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -43 0 0 0 0 0 0 0 0 0
44 1 -45 46 -46 47 -47 0 48 1 1 1 1 1 -537 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 424 -422 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 115 -113 1 1 1
1 1 1 1 1 106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1 1 76 -74 1 1 1 1 1 1 1 1 67 -65
1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 57
ENDB5.TMP
WASPS5.BAS
ENDWASPS5.BAS
1063
1 1 1 1 1 -56 0 0 0 0 0 0 0 0 0 57 1 -58 59 -59 60 -60 0 61 1 1 1 1 -12 -537 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1
470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 424 -422 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 282 -280 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 115 -113 1 1 1 1 1 1 1 1 106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1 1 1 1 1 1 1 1 1
1 1 1 76 -74 1 1 1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 68
ENDB6.TMP
WASPS4.BAS
ENDWASPS4.BAS
1077
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -67 0 0 0 0 0 0 0 0 0 0 68 1 1 -70 71 -71 0 0 72 1 1 1 1 -23 -537 1 1 1 1 1 1
483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 424 -422 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 115 -113 1 1 1 1 1 1 1 1 106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1
1 1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1 1 76 -74 1 1 1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1
1 1 1 1 1 1 1 40 -38 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 79
ENDB7.TMP
WASPS3.BAS
ENDWASPS3.BAS
1090
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -78 0 0 0 0 0 0 0 0 0 0 79 1 -80 81 -81 82 -82 0
83 1 1 1 1 -572 1 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 90
ENDB8.TMP
WASPS2.BAS
ENDWASPS2.BAS
1103
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -89 0 0 0 0 0
0 0 0 0 0 90 1 -91 0 0 25 -25 0 26 1 65 1 1 -579 1 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
115 -113 1 1 1 1 1 1 1 1 106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1 1 76 -74 1 1 1 1 1
1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 97
ENDB9.TMP
WASPS1.BAS
ENDWASPS1.BAS
1113
1 1 1 -96 0 0 0 0 0 0 0 0 0 0 97 1 -98 0 0 99 -99 0 0 100 1 1 1 1 -589 1 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 107
ENDB10.TMP
WASCS9.BAS
750 FOR I = 1 TO 4: F1(I) = 0: F2(I) = 0: NEXT I: XD = 0
840 REM
872 XC = X1 + Q2 * R * (1 - (S * (I - J) ^ 2 + I * J)): X1 = X1 + Q2 * (1 - (S * (J - K) ^ 2 + J * K))
873 X1 = X1 * N(I8): XD = XD + Q2 * (1 - R) * (1 - (S * (I - J) ^ 2 + I * J)) * N(I8) / 8
880 F1(J8) = F1(J8) + XC / 16
890 F2(J8) = F2(J8) + N(I8) / 8
970 W(I) = F1(I) + XD
2530 REM ORLOVE M.J. 1981 WASPS AND THE
ENDWASCS9.BAS
1127
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -106 0 0 0 0 0 0 0 0 0 0 0 107 -38 -69 0 71 -71 0 0 72 1 35 1 1 -106 -488 1 1 1 1 1 1 483 -481
1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 377 1 1 -377 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 458 -456 1 1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442
1 1 1 -440 1 1 1 1 1 1 1 1 433 -431 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 40 -38 1 1 135 -133 1 1 1 1 1 1 1 1 1 1 1 1 1 121
ENDB11.TMP
WASUS9.BAS
970 W(I) = F1(I)
2530 REM ORLOVE M.J. 1981 WASPS AND THE
ENDWASUS9.BAS
1143
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -120 0 0 0 0 0 0 0 0 0 0 0 121 1 -122 123 1 -42 -82
0 83 1 41 1 1 -123 -488 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 377 1 1 -377 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 458 -456 1
1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442 1 1 1 -440 1 1 1 1 1 1 1 1 444 -442 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 115 -113 1 1 1 1 1 1 1 1
106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1 1 76 -74 1 1 1 1 1 1 1 1 67 -65 1 1 1 1 1
1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 146 -144 1 1 1 1 1 1 1 1 1 1 1 1 1 132
ENDB12.TMP
WASCS8.BAS
ENDWASCS8.BAS
1156
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -131 0 0 0 0 0
0 0 0 0 0 0 132 1 -133 134 1 1 -136 0 137 1 1 1 1 -137 -488 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 377 1 1 -377 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 458 -456 1 1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442 1 1 1 -440 1 1 1 1 1 1 1 1 433 -431 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 115 -113 1 1 1 1 1 1 1 1 106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1 1 76 -74 1 1
1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 135 -133 1 1 1 1 1 1 1 1
1 1 1 1 1 144
ENDB13.TMP
WASCS7.BAS
ENDWASCS7.BAS
1171
1 1 1 1 1 1 1 1 -143 0 0 0 0 0 0 0 0 0 0 0 144 1 -145 146 1 1 -148 0 0 149 1 1 1 1 -149 -488 1 1 1 1 1 1 483 -481 1 1 1 1 1 1
1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
377 1 1 -377 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 458 -456 1 1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442 1 1 1 -440 1 1
1 1 1 1 1 1 433 -431 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
282 -280 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 115 -113 1 1 1 1 1 1 1 1 106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1
1 1 1 1 1 1 1 1 1 1 1 76 -74 1 1 1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1
1 40 -38 1 1 135 -133 1 1 1 1 1 1 1 1 1 1 1 1 1 156
ENDB14.TMP
WASCS6.BAS
ENDWASCS6.BAS
1183
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -155 0 0 0 0 0 0 0 0 0 0 0 0 156 1 -157 158 1 1 -160 0 161 1 1 1 1 -112 -537
1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 424 -422 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 458 -456 1 1 1 1 1 1 1 1 1 1 447
-445 1 1 1 1 442 1 1 1 -440 1 1 1 1 1 1 1 1 433 -431 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 115 -113 1 1 1 1 1 1 1 1 106 -104 1 1 1 1 1 1 99 -97
1 1 1 1 1 1 1 1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1 1 76 -74 1 1 1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53
-51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 135 -133 1 1 1 1 1 1 1 1 1 1 1 1 1 168
ENDB15.TMP
WASCS5.BAS
ENDWASCS5.BAS
1197
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -167 0 0 0 0 0 0 0 0 0 0 0 0 168
1 -169 170 1 1 -172 0 173 1 1 1 1 -124 -537 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 424 -422 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 458 -456 1 1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442 1 1 1 -440 1 1 1 1 1 1 1 1 433 -431 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 115 -113 1 1 1 1
1 1 1 1 106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1 1 76 -74 1 1 1 1 1 1 1 1 67 -65 1
1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 135 -133 1 1 1 1 1 1 1 1 1 1 1 1 1 180
ENDB16.TMP
WASCS4.BAS
ENDWASCS4.BAS
1211
-179 0 0 0 0 0 0 0 0 0 0 0 0 180 1 -181 182 1 1 -184 0 185 1 1 1 1 -136 -537 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 424 -422 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 458 -456 1 1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442 1 1 1 -440 1 1 1 1 1 1 1 1 433 -431 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 115 -113 1 1 1 1 1 1 1 1 106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1
1 76 -74 1 1 1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 135 -133 1 1 1
1 1 1 1 1 1 1 1 1 1 192
ENDB17.TMP
WASCS3.BAS
ENDWASCS3.BAS
1226
1 1 1 1 1 1 1 1 1 1 1 1 1 1 -191 0 0 0 0 0 0 0 0 0 0 0 0 0 192 -192 193 1 1 -195 0 0 196 1 1 1 1 -685 1 1 1 1 1 1 1 483
-481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 458 -456 1 1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442 1
1 1 -440 1 1 1 1 1 1 1 1 433 -431 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 115 -113 1 1 1 1 1 1 1 1 106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1 1
1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1 1 76 -74 1 1 1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1
1 1 1 1 1 1 40 -38 1 1 135 -133 1 1 1 1 1 1 1 1 1 1 1 1 1 203
ENDB18.TMP
WASCS2.BAS
ENDWASCS2.BAS
1239
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -202 0 0 0 0 0 0 0 0 0 0 0 0 0 203 1 -204 205 1 1 -207 0 208
1 1 1 1 -697 1 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 458 -456 1 1 1 1 1
1 1 1 1 1 447 -445 1 1 1 1 442 1 1 1 -440 1 1 1 1 1 1 1 1 433 -431 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 115 -113 1 1 1 1 1 1 1 1 106 -104 1 1
1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1 1 76 -74 1 1 1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1
1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 135 -133 1 1 1 1 1 1 1 1 1 1 1 1 1 215
ENDB19.TMP
WASCS1.BAS
ENDWASCS1.BAS
1253
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -214 0 0 0 0 0 0 0 0
0 0 0 0 0 215 1 -216 217 1 1 -219 0 220 1 1 1 1 -709 1 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 458 -456 1 1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442 1 1 1 -440 1 1 1 1 1 1 1 1 433 -431 1 1 1 1 1 1 1 1 1 1
1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 135 -133 1 1 1 1 1 1 1 1 1 1 1
1 1 227
ENDB20.TMP
WASUS8.BAS
ENDWASUS8.BAS
1270
1 1 1 1 1 -226 0 0 0 0 0 0 0 0 0 0 0 0 0 227 1 -228 0 229 -130 -99 0 0 100 130 1 1 1 -229 -488 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1
1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 377
1 1 -377 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 458 -456 1 1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442 1 1 1 -440 1 1 1
1 1 1 1 1 444 -442 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 282
-280 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 115 -113 1 1 1 1 1 1 1 1 106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1 1
1 1 1 1 1 1 1 1 1 1 76 -74 1 1 1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1
40 -38 1 1 146 -144 1 1 1 1 1 1 1 1 1 1 1 1 1 236
ENDB21.TMP
WASUS7.BAS
ENDWASUS7.BAS
1281
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -235 0 0 0 0 0 0 0 0 0 0 0 0 0 0 236 1 1 1 1 1 -241 0 242 1 1 1 1 -242 -488 1 1 1 1
1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 377 1 1 -377 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 458 -456 1 1 1 1 1 1 1 1 1 1 447 -445 1
1 1 1 442 1 1 1 -440 1 1 1 1 1 1 1 1 444 -442 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 115 -113 1 1 1 1 1 1 1 1 106 -104 1 1 1 1 1 1 99 -97 1 1
1 1 1 1 1 1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1 1 76 -74 1 1 1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1
1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 146 -144 1 1 1 1 1 1 1 1 1 1 1 1 1 249
ENDB22.TMP
WASUS6.BAS
ENDWASUS6.BAS
1294
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -248 0 0 0 0 0 0 0 0 0 0 0 0 0 0 249 1 -250 251
1 1 -253 0 254 1 1 1 1 -205 -537 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 424 -422 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 458 -456
1 1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442 1 1 1 -440 1 1 1 1 1 1 1 1 444 -442 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 115 -113 1 1 1 1 1 1 1
1 106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1 1 76 -74 1 1 1 1 1 1 1 1 67 -65 1 1 1 1
1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 146 -144 1 1 1 1 1 1 1 1 1 1 1 1 1 261
ENDB23.TMP
WASUS5.BAS
ENDWASUS5.BAS
1308
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -260 0 0 0 0
0 0 0 0 0 0 0 0 0 0 261 1 -262 263 1 1 -265 0 266 1 1 1 1 -217 -537 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 424 -422 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 458 -456 1 1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442 1 1 1 -440 1 1 1 1 1 1 1 1 444 -442 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 115 -113 1 1 1 1 1 1 1 1 106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1 1 76 -74
1 1 1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 146 -144 1 1 1 1 1 1
1 1 1 1 1 1 1 273
ENDB24.TMP
WASUS4.BAS
ENDWASUS4.BAS
1323
1 1 1 1 1 1 1 1 1 -272 0 0 0 0 0 0 0 0 0 0 0 0 0 0 273 1 -274 275 1 1 -277 0 0 278 1 1 1 1 -229 -537 1 1 1 1 1 1 483 -481 1 1
1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 424 -422 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 458 -456 1 1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442 1 1 1 -440
1 1 1 1 1 1 1 1 444 -442 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 40 -38 1 1 146 -144 1 1 1 1 1 1 1 1 1 1 1 1 1 285
ENDB25.TMP
WASUS3.BAS
ENDWASUS3.BAS
1337
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -284 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 285 1 -286 287 1 -252 -36 0 37 1 251
1 1 -776 1 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 458 -456 1 1 1 1 1 1 1
1 1 1 447 -445 1 1 1 1 442 1 1 1 -440 1 1 1 1 1 1 1 1 444 -442 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 146 -144 1 1 1 1 1 1 1 1 1 1 1 1 1 294
ENDB26.TMP
WASUS2.BAS
ENDWASUS2.BAS
1348
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -293 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
294 1 -295 296 1 -250 -47 0 48 1 249 1 1 -785 1 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 458 -456 1 1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442 1 1 1 -440 1 1 1 1 1 1 1 1 444 -442 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 146 -144 1 1 1 1 1 1 1 1 1 1 1 1 1 303
ENDB27.TMP
WASUS1.BAS
ENDWASUS1.BAS
1359
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -302 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 303 1 -304 0 305 -245 -60 0 61 1 244 1 1 -793 1 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 458 -456 1 1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442 1 1 1 -440 1 1 1 1 1 1 1 1 444 -442 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 115 -113 1 1 1 1 1 1 1 1 106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1 1 76
-74 1 1 1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 146 -144 1 1 1 1 1
1 1 1 1 1 1 1 1 311
ENDB28.TMP
WOSUS2.BAS
230 INPUT"ACUM$"; ACUM$
240 REM R$ = "KIN SELECTION"
241 X = X: PRINT"KIND OF MODEL: CLASSICAL";
242 X = X: INPUT" , KIN SELECTION";R$
ENDWOSUS2.BAS
1370
1 1 1 1 1 -310 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 311 1 -312 0 313 1 -314 0 0 315 1 1 1 1 -804 1 1 1 1 1 1 1 483 -481 1 1 1 1 1
1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 755 1 1 1 -753 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 458 -456 1 1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442 1 1 1 -440 1 1 1
40 -38 1 1 146 -144 1 1 1 1 1 1 1 1 1 1 1 1 1 326
ENDB29.TMP
WOSUS1.BAS
ENDWOSUS1.BAS
1387
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -325 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 326 1 -327 328 -88 1 -241 0 242 1 86
1 1 -816 1 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 755 1 1 1 -753 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 146 -144 1 1 1 1 1 1 1 1 1 1 1 1 1 334
ENDB30.TMP
WOSUS3.BAS
ENDWOSUS3.BAS
1397
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -333 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 334
1 1 -40 1 -250 -47 0 48 1 288 1 1 -824 1 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 755 1 1 1 -753 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 458 -456 1 1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442 1 1 1 -440 1 1 1 1 1 1 1 1 444 -442 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 146 -144 1 1 1 1 1 1 1 1 1 1 1 1 1 342
ENDB31.TMP
WOSCS1.BAS
ENDWOSCS1.BAS
1407
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -341 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 342 1 1 -344 345 -161 -184 0 185 1 160 1 1 -833 1 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 755 1 1 1 -753 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 458 -456 1 1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442 1 1 1 -440 1 1 1 1 1 1 1 1 433 -431 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 115 -113 1 1 1 1 1 1 1 1 106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1 1 76 -74 1
1 1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 135 -133 1 1 1 1 1 1 1
1 1 1 1 1 1 351
ENDB32.TMP
WOSCS2.BAS
ENDWOSCS2.BAS
1419
1 1 1 -350 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 351 1 1 -353 354 1 -355 0 0 356 1 1 1 1 -845 1 1 1 1 1 1 1 483 -481 1 1 1 1 1 1
1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 755 1 1 1 -753 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 458 -456 1 1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442 1 1 1 -440 1 1 1 1
1 1 1 1 433 -431 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 282 -280
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 115 -113 1 1 1 1 1 1 1 1 106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1 1 1
1 1 1 1 1 1 1 1 1 76 -74 1 1 1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40
-38 1 1 135 -133 1 1 1 1 1 1 1 1 1 1 1 1 1 363
ENDB33.TMP
WOSCS3.BAS
ENDWOSCS3.BAS
1433
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -362 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 363 1 -364 365 1 -366 0 0 367 1 1 1 1 -856 1
1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 755
1 1 1 -753 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 458 -456 1 1 1 1 1 1 1 1 1 1 447
-51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 135 -133 1 1 1 1 1 1 1 1 1 1 1 1 1 374
ENDB34.TMP
WOSPS1.BAS
ENDWOSPS1.BAS
1446
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -373 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 374 1
1 1 -206 1 -172 0 173 1 204 1 1 -865 1 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 755 1 1 1 -753 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 115 -113 1 1 1 1 1
1 1 1 106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1 1 76 -74 1 1 1 1 1 1 1 1 67 -65 1 1
1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 383
ENDB35.TMP
WOSPS2.BAS
ENDWOSPS2.BAS
1457
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -382 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 383 1 1 -385 0 386 -386 0 387 1 1 1 1 -876 1 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1
1 1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 394
ENDB36.TMP
WOSPS3.BAS
ENDWOSPS3.BAS
1471
1 1 1 1 -393 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 394 1 -42 -353 0 355 -355 0 0 356 40 1 1 1 -884 1 1 1 1 1 1 1 483 -481 1 1 1 1
1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 755 1 1 1 -753 1 1 1 1 1 1 1 1
1 40 -38 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 402
ENDSCRAP30.TMP
1034
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 -401 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 402 1 -403 0 0 160 -160 0 161 1 242 1